Great Canadian Scientists/GCS_CD.iso/mac/PC/GCSData/prefs_o.dxr/00006_Sound Toggle.ls

Text File | 1996-09-01 | 324 b | 14 lines

on mouseUp
  global sound
  repeat with count = 28 to 31
    set the hilite of cast count to 0
  end repeat
  set the hilite of cast the castNum of sprite the clickOn to 1
  repeat with count = 28 to 31
    if the hilite of cast count = 1 then
      set sound to abs(count - 31)
    end if
  end repeat
  SoundControl()
end